home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 January
/
Ahoy_Magazine_87-01_1987_Double_L.d64
/
Variable Log
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
386b
|
14 lines
0 rem << cd37-1 >>
1 rem commodares problem #33-1:
2 print"[147] variable log"
3 rem solution by
4 rem joe wright
5 rem
9 rem === 1st solution ===
10 a$="abcdefghijklmnopqrstuvwxyz 0123456789" : for x=1 to 26 : for y=1 to 37
20 print mid$(a$,x,1);mid$(a$,y,1);" "; : next : next
30 rem === 2nd solution ===
40 for x=65 to 90 : for y=48 to 90 : if y=58 then y=65
50 print chr$(x);chr$(y);" ";
60 next : print chr$(x);" "; : next